2 REM** SINE IN BY JOHN LOUNSBERRY
10 REM**MUSIC PROGRAM FOR 64
12 POKE 53281,0
13 PRINT "[147]     SINE IN BY JOHN LOUNSBERRY                                    ."
14 PRINT:PRINT:PRINT:PRINT
15 PRINT"  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
16 PRINT"  [194]   SINE  ANY THING  IN   [194]"
18 PRINT"  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
19 INPUT N$
20 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
30 POKEBE+5,85:POKEBE+6,85:POKEBE+12,85:POKEBE+13,85
40 POKEBE+24,15
50 POKEBE+4,33:POKEBE+11,17
60 FORX=1TO6:READH1,L1,H2,L2:POKEBE+1,H1:POKEBE,L1:POKEBE+8,H2:POKEBE+7,L2
65 IFH1=50THENFORT=1TO200:NEXT
70 FORT=1TO100:NEXT
80 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
85 DATA37,162
90 NEXTX
100 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
110 INC=.3
120 FOR X=0 TO 6.28 STEP INC
130 FORL=54272TO54296:POKEL,12:NEXT
140 POKE 54296,15:POKE 54277,100
150 POKE 54276,33
160 Y=SIN(X)
170 Y=Y*17+17
180 POKE 53280,0 : POKE 53281,0
190 PRINT TAB(Y)  ;N$
195 LET Z =INT(12*RND(1))+1
196 POKE 53281,Z
200 NEXT X
210 FOR X= 1 TO 6.28: NEXT X
220 GOTO 110
230 REM STATMENTS 130-150 SOUND
240 REM PAGE 152 & 80 COM/MAN